% g! - v1 - Copyright 1991 Silicon Beach Software, Inc.
userdict/gr_d known not{userdict begin/gr_d 50 dict def/gr_b{gr_d begin}bind def/gr_e
{end end}bind def gr_b/bd{bind def}bind def/g_ea[]def/g_mg 60 def/g_xg 250 def/g_ss{currentscreen
/g_a exch def/g_b exch def/g_c exch def/g_a load type dup/arraytype eq exch/packedarraytype eq
or{/g_ng 72 g_c div dup matrix defaultmatrix dtransform mul abs def g_ng g_mg lt{/g_c g_c g_mg g_ng
div sqrt div def g_c g_b/g_a load setscreen/g_ng g_mg def}if g_ng g_xg gt{/g_ng g_xg def}if}
{/g_ng g_xg def}ifelse g_ea 0 setdash}bd/msc{0 index 2 index eq 2 index 4 index eq and{pop pop
setgray}{setrgbcolor}ifelse}bd/fmd{4 index 3 index add 2 div add exch 5 index
4 index add 2 div add 0 index 6 index sub dup mul 2 index 6 index sub dup mul add 1 index
5 index sub dup mul 3 index 7 index sub dup mul add 2 index 6 index sub dup mul 4 index 6
index sub dup mul add 3 index 9 index sub dup mul 5 index 7 index sub dup mul add 1 1 3{pop
2 copy lt{exch}if pop}for sqrt[8 2 roll cleartomark}bd/g_lf{gsave /g_noeo exch def dup/a exch def/b exch def
dup/c exch def/d exch def dup/e exch def/f exch def dup/g exch def/h exch def/i exch def/j
exch def/k exch def g_noeo{clip}{eoclip}ifelse newpath g_ss j 0 eq{i 0 lt{g i add/g exch def d i sub/d exch def}
{h i sub/h exch def c i add/c exch def}ifelse/l g def/m e def/n h def/o a def/p c g sub
def/q 0 def}{i 0 lt{f i add/f exch def a i sub/a exch def}{e i sub/e exch def b i add/b
exch def}ifelse/l g def/m e def/n c def/o f def/p 0 def/q a e sub def}ifelse k{/r exch def
r 0 get/s exch def r 1 get/t exch def r 2 get/u exch def/v s 0 get def/w s 1 get def/x s 2
get def/y t 0 get v sub g_ng div def/z t 1 get w sub g_ng div def/A t 2 get x sub g_ng div
def/B p u mul g_ng div def/C q u mul g_ng div def B C gt{B}{C}ifelse setlinewidth newpath
0 1 g_ng{pop v w x msc l m moveto n o lineto stroke v y add/v exch def w z add/w exch def
x A add/x exch def l B add/l exch def m C add/m exch def n B add/n exch def o C add /o exch
def}for}forall grestore}bd/g_bf{gsave/g_noeo exch def/a exch def/b exch def/c exch def/d exch def/e exch
def/f exch def/g exch def g_noeo{clip}{eoclip}ifelse newpath g_ss/h b d sub def/i a c sub def/j d c b a f e fmd
def d b add 2 div f add dup j sub/d exch def j add/b exch def c a add 2 div e add dup j
sub/c exch def j add/a exch def g{/k exch def k 0 get/l exch def k 1 get/m exch def k 2
get/n exch def/o l 0 get def/p l 1 get def/q l 2 get def/r m 0 get o sub g_ng div def/s m
1 get p sub g_ng div def/t m 2 get q sub g_ng div def/w j n mul g_ng div def 0 1 g_ng{pop
o p q msc newpath d c moveto b c lineto b a lineto d a lineto closepath fill o r add/o
exch def p s add/p exch def q t add/q exch def d w add/d exch def c w add/c exch def b w
sub/b exch def a w sub/a exch def}for}forall grestore}bd/g_cf{gsave/g_noeo exch def/a exch def/b exch def/c
exch def/d exch def/e exch def/f exch def/g exch def g_noeo{clip}{eoclip}ifelse newpath g_ss/h b d sub def/i a c
sub def/j d c b a f e fmd def/k j def/l d h 2 div add f add def/m c i 2 div add e add
def/n true def g{/o exch def o 0 get/p exch def o 1 get/q exch def o 2 get/r exch def/s p
0 get def/t p 1 get def/u p 2 get def/v q 0 get s sub g_ng div def/w q 1 get t sub g_ng div
def/x q 2 get u sub g_ng div def/A j r mul g_ng div def 0 1 g_ng{pop s t u msc newpath n{d
c moveto b c lineto b a lineto d a lineto/n false def}{l m k 0 360 arc}ifelse closepath
fill s v add/s exch def t w add/t exch def u x add/u exch def k A sub/k exch def}for}forall
grestore}bd/g_cvf{gsave/g_noeo exch def pop pop pop pop pop/a exch def/b exch def g_noeo{clip}{eoclip}ifelse g_ss g_c a mul 72
div dup g_ng gt{pop}{/g_ng exch def}ifelse/g_ng g_ng round def/c a 2 mul def/d true def b
length 1 sub -1 0{b exch get/e exch def e 0 get/f exch def e 1 get/g exch def e 2 get/h
exch def/i g 0 get def/j g 1 get def/k g 2 get def/l f 0 get i sub g_ng div def/m f 1 get j
sub g_ng div def/n f 2 get k sub g_ng div def/o a h mul g_ng div 2 mul def 0 1 g_ng{pop i j
k msc c setlinewidth gsave d{fill/d false def}{stroke}ifelse grestore i l add/i exch def j
m add/j exch def k n add/k exch def/c c o sub def c 0.001 le{/c 0.001 def}if}for}for
grestore}bd gr_e}if